home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / abitur / txt / abiturscreen.def < prev    next >
Text File  |  1993-11-04  |  677b  |  38 lines
  1. DEFINITION MODULE AbiturScreen;
  2.  
  3. FROM  Intuition IMPORT ScreenPtr, WindowPtr;
  4.  
  5. CONST
  6.    schwarZ = 0;
  7.    weisS   = 1;
  8.    hgraU   = 2;
  9.    dgraU   = 3;
  10.    roT     = 4;
  11.    grueN   = 5;
  12.    blaU    = 6;
  13.    gelB    = 7;
  14.  
  15.  
  16. VAR BACKScreen: ScreenPtr;
  17.     BACKWindow: WindowPtr;
  18.  
  19. PROCEDURE OpenTextWindow(Breite, Hoehe: INTEGER): WindowPtr;
  20.  
  21. PROCEDURE WaitCloseGadget(W: WindowPtr);
  22.  
  23.  
  24. PROCEDURE AddAbiTxtLin(Str: ARRAY OF CHAR);
  25. (* Fügt eine Textzeile an, die mit ShowAbiTxt gezeigt werden kann. *)
  26.  
  27. PROCEDURE ShowAbiTxt(Col: INTEGER);
  28. (* Zeichnet alle Zeilen, die mit AddAbiTxtLin angefügt wurden.*)
  29.  
  30.  
  31.  
  32. PROCEDURE TafelPutz;
  33. (* Zeichnet eine neue leere Wandtafel.*)
  34.  
  35.  
  36. END AbiturScreen.
  37.  
  38.